home *** CD-ROM | disk | FTP | other *** search
/ SGI Hot Mix 17 / Hot Mix 17.iso / HM17_SGI / research / external / widstub / test.pro < prev    next >
Encoding:
Text File  |  1997-07-08  |  755 b   |  31 lines
  1. ; $Id: test.pro,v 1.1 1995/07/21 18:04:00 ali Exp $
  2.  
  3. pro test_event, ev
  4.  
  5.   widget_control, get_uvalue=val, ev.id
  6.   if (val eq 0) then begin
  7.     widget_control, /destroy, ev.top 
  8.   endif else begin
  9.     HELP, /STRUCT, ev
  10.     if (ev.value eq 1) then begin
  11.             widget_control,val,set_value='New label string'
  12.         tmp = widget_info(ev.id,/GEOMETRY)
  13.         widget_control, xsize=tmp.xsize+25, ysize=tmp.ysize+25, ev.id
  14.         endif
  15.   endelse
  16.  
  17. end
  18.  
  19.  
  20. pro test
  21.   a = widget_base(/COLUMN)
  22.   b = widget_button(a, value='Done', uvalue = 0)
  23.   label=widget_label(a,value='A label')
  24.   arrow_w = widget_arrowb(a, 0, xsize=100, ysize=100, uvalue=label)
  25.   arrow_w = widget_arrowb(a, 1, xsize=100, ysize=50, uvalue=label)
  26.   widget_control,/real,a
  27.  
  28.   xmanager, 'TEST', a
  29. end
  30.  
  31.